1 POKE53265,PEEK(53265)AND247
2 POKE53281,3:POKE53280,3:PRINT"[144][147]":FORI=1TO24:PRINTCHR$(17);:NEXT
3 POKE53265,(PEEK(53265)AND248)+7:PRINT
4 PRINT" ROMAN NUMBERS BY M.DOMBROWSKI MCMLXXXV";
5 FORP=6TO0STEP-1
6 POKE53265,(PEEK(53265)AND248)+P
7 FORX=1TO50:NEXT
8 NEXT:G=G+1:IFG<24THEN3
9 FORT=1TO999:NEXT
10 IFFL=1THEN12
11 FL=1:DIMC$(25),D%(25),RN$(20)
12 PRINT"[147]":PRINT"    THERE WAS A TIME IN EUROPE WHEN THE   ROMAN SYSTEM OF";
13 PRINT" NOTATION WAS THE MOST   POPULAR METHOD OF WRITING NUMBERS."
14 GOSUB500
15 PRINT"ENTER R[146] FOR DECIMAL TO ROMAN CONVERSION"
35 PRINT"ANY KEY FOR ROMAN TO DECIMAL CONVERSION"
36 PRINTTAB(13)"ENTER Q[146] TO QUIT"
40 GETMD$:IFMD$="R"THENPRINT"[147]":GOSUB500:GOSUB650
41 IFMD$=""THEN40
42 IFMD$="Q"THENPOKE53265,PEEK(53265)OR8:GOTO63000
43 IFOP=0THENRUN57
44 PRINTTAB(13)""RN$" ="OP"[146]":OP=0:GOTO14
45 PRINT"[147]":PRINTTAB(5)"THE ROMAN NOTATION FOR NUMBERS":IFFL=1THEN47
46 FL=1:DIMC$(25),D%(25),RN$(20)
47 PRINT"  TWO PRINCIPLES ARE USED HERE TO FORM "SPC(8)"NUMBERS WITH ROMAN";
48 PRINT" NUMERALS:            (1)ADDITION, (2)SUBTRACTION."
49 PRINTTAB(11)"ADDITION PRINCIPAL:"
50 PRINTTAB(8)"XXVIII = X+X+V+I+I+I = 28"
51 PRINTTAB(9)"SUBTRACTION PRINCIPAL:"
52 PRINT" IS USED IN WRITING ALL[146] FOURS AND NINES"
53 PRINT"  4=IV,9=IX,40=XL,90=XC,400=CD,900=CM"
55 PRINTTAB(14)"HIT ANY KEY"
56 GETMD$:IFMD$=""THEN56
57 PRINT"[147]";:GOSUB500:PRINT" RULES:":IFFL=1THEN62
58 FL=1:DIMC$(25),D%(25),RN$(20)
62 PRINT" FIRST WRITE THE THOUSANDS,"
63 PRINT" THEN THE HUNDREDS,";
64 PRINT" THEN THE TENS,"
65 PRINT" AND LAST OF ALL, THE UNITS"
98 IFFL=1THEN100
99 DIMC$(25),D%(25),RN$(20):FL=1
100 A$="":B=0
108 PRINT"ENTER ROMAN NUMERAL: LIMIT 24 CHARACTERS"
110 INPUTA$:B=LEN(A$)
112 IFB=>25THENRUN11
115 FORI=1TOB
140 C$(I)=MID$(A$,I,1):NEXT
170 FORI=1TOB:IFC$(I)="M"THEND%(I)=1000:NEXT
180 IFC$(I)="D"THEND%(I)=500:NEXT
190 IFC$(I)="C"THEND%(I)=100:NEXT
200 IFC$(I)="L"THEND%(I)=50:NEXT
210 IFC$(I)="X"THEND%(I)=10:NEXT
220 IFC$(I)="V"THEND%(I)=5:NEXT
230 IFC$(I)="I"THEND%(I)=1:NEXT
231 IFB<2THEN300
232 FORI=1TOB
233 IFD%(I)<.1*(D%(I+1))THENRUN45
234 IFI=B-1THEN237
235 NEXT
237 IFB<3THEN300
238 FORI=1TOB
239 IFD%(I)+D%(I+1)<D%(I+2)THENRUN45
240 IFI=B-1THEN300
241 NEXT
300 FORI=1TOB:IFD%(I)=0THEN45
310 IFD%(I)=>D%(I+1)THENE%=D%(I):F%=F%+E%:E%=0:GOTO340
320 IFD%(I)<D%(I+1)THENE%=D%(I+1)-D%(I)
330 F%=F%+E%:E%=0:I=I+1
340 NEXT
345 F=F%:GOSUB700
350 IFA$<>RN$THENRUN45
400 PRINTTAB(14)""A$" ="F%"[146]":PRINT
445 PRINTTAB(11)"ANOTHER TRY ? Y[146]ES"
450 GETMD$:IFMD$="Y"THENRUN57
455 IFMD$=""THEN450
499 RUN11
500 PRINTTAB(13)"ROMAN NUMERALS":PRINT
510 PRINT" OUR NUMBER                ROMAN SYMBOL"
520 PRINT "[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
530 PRINT"      1.........................I"
540 PRINT"      5.........................V"
550 PRINT"     10.........................X"
560 PRINT"     50.........................L"
570 PRINT"    100.........................C"
580 PRINT"    500.........................D"
590 PRINT"   1000.........................M"
600 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
610 RETURN
650 PRINT" DECIMAL LIMIT: 1-99999 "
655 INPUT"ENTER DECIMAL NUMBER";F:OP=F:RN$=""
660 IFF<1ORF=>100000THENRUN11
675 M=0:CM=0:D=0:CD=0:C=0:XC=0:L=0:XL=0:IX=0:IV=0:X=0:V=0:U=0
700 IFF<1000THEN710
702 M=INT(F/1000):F=F-M*1000:IFF=0THEN800
710 IFF=>900THENF=F-900:CM=1:GOTO740
712 CM=0:IFF=0THEN800
720 IFF=>500THENF=F-500:D=1:GOTO740
722 D=0:IFF=0THEN800
730 IFF=>400THENF=F-400:CD=1:GOTO740
733 CD=0:IFF=0THEN800
740 IFF=>100THENC=INT(F/100):F=F-C*100
750 IFF=>90THENXC=1:F=F-90:GOTO780
755 XC=0:IFF=0THEN800
760 IFF=>50THENL=1:F=F-50:GOTO780
766 L=0:IFF=0THEN800
770 IFF=>40THENXL=1:F=F-40:GOTO780
777 XL=0:IFF=0THEN800
780 IFF=>10THENX=INT(F/10):F=F-X*10
790 IFF=9THENIX=1:F=F-9
792 IFF=>5THENV=1:F=F-5
797 IFF=4THENIV=1:F=F-4
799 U=F
800 IFM>0THENFORI=1TOM:RN$=RN$+"M":NEXT
805 IFCM=1THENRN$=RN$+"CM":GOTO820
810 IFD=1THENRN$=RN$+"D":GOTO820
815 IFCD=1THENRN$=RN$+"CD":GOTO820
820 IFC<>0THEN:FORI=1TOC:RN$=RN$+"C":NEXT
825 IFXC=1THENRN$=RN$+"XC":GOTO840
830 IFL=1THENRN$=RN$+"L":GOTO840
835 IFXL=1THENRN$=RN$+"XL":GOTO840
840 IFX<>0THENFORI=1TOX:RN$=RN$+"X":NEXT
845 IFIX=1THENRN$=RN$+"IX"
846 IFV=1THENRN$=RN$+"V"
847 IFIV=1THENRN$=RN$+"IV"
848 IFU<>0THENFORI=1TOU:RN$=RN$+"I":NEXT
850 RETURN
63000 REM    CONNECT BACK TO L.S.
63001 POKE53265,27: REM  FIX SCREEN
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END